home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / dice master (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  541b  |  21 lines
  1. 400 poke53280,1:poke53281,1:print"[147]"
  2. 500 print"";tab(14);"[144] dice master "
  3. 510 print"";tab(12);" by jim lockridge"
  4. 600 fort=1to1000:nextt
  5. 700 clr
  6. 800 input"[147]how many sides";a:ifa<3ora>200then800
  7. 900 input"how many rolls";b:ifb>80orb<1then900
  8. 1000 print"[144]"
  9. 1100 fort=1tob
  10. 1200 rdr=int(a*rnd(1))+1
  11. 1300 printrdr,:sum=sum+rdr:next
  12. 1400 print"";tab(25);" total ";sum
  13. 1450 print"";tab(25);"[129] avg.= ";int(sum/b)
  14. 1500 print"";tab(9);"[159] roll again? y/n [146]"
  15. 1600 getra$
  16. 1700 ifra$<>"y"andra$<>"n"then1600
  17. 1800 ifra$="y"then700
  18. 1900 :
  19. 63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  20. 63010 poke631,13:poke632,13:poke198,2:end
  21.